;jub369
:irc.dsn.za.org
;dont't rip hard work went into the making of this
;Rpg Pokemon Battle Bot

alias start {
  writeini wars.ini Users $1 yes
  writeini wars.ini $1 hp 110
  writeini wars.ini $1 ki  110
  writeini wars.ini $1 Money 9000 
  writeini wars.ini $1 level 1.0
  writeini wars.ini $1 sayians none
  writeini wars.ini $1 amove none  
  notice $1 15 Account Created Please Type `dbs for a list of characters

}
on *:TEXT:`dbzstart*:#: {
  notice type (`name then a name) then (`pass then a pass)
  if ($readini( wars.ini,users,$nick ) = yes ) { notice $nick 15You have an Account Please Type `listmoves  | halt }
  else { /start $nick     }
}

on *:TEXT:`characters*:#: {
  if  ($readini( wars.ini,$nick,Pokemon ) = none ) {
    if ($2 == goku) { writeini wars.ini $nick Pokemon goku | writeini wars.ini $nick move supersayian | notice $nick You Have Chosen goku | notice $nick Please choose `listmoves then `basicmove | halt } 
    if ($2 == vegeta) { writeini wars.ini $nick Pokemon vegeta | writeini wars.ini $nick move galicgun | notice $nick You Have Chosen vegeta | notice $nick Please choose `listmoves then `basicmove | halt }  
    if ($2 == trunks) { writeini wars.ini $nick Pokemon trunks | writeini wars.ini $nick move slash | notice $nick You Have Chosen trunks | notice $nick Please choose `listmoves then `basicmove | halt } 
    if ($2 == gohan) { writeini wars.ini $nick Pokemon gohan | writeini wars.ini $nick move kamahamaha | notice $nick You Have Chosen gohan | notice $nick Please choose `listmoves then `basicmove | halt } 
    if ($2 == teen gohan) { writeini wars.ini $nick Pokemon teen gohan | writeini wars.ini $nick move dupersayian2 | notice $nick You Have Chosen teen gohan | notice $nick Please choose `listmoves then `basicmove | halt } 
    if ($2 == kid gohan) { writeini wars.ini $nick Pokemon kid gohan | writeini wars.ini $nick move maskoha | notice $nick You Have Chosen kid gohan | notice $nick Please choose `listmoves then `basicmove | halt } 
  }
}
on *:TEXT:`characters*:#: {
  notice $nick 4Please type `chr <choice>
  notice $nick goku
  notice $nick vegeta
  notice $nick trunks
  notice $nick gohan
  notice $nick teen gohan
  notice $nick kid gohan
}
on *:TEXT:`dbztrain*:#: {
  if ($readini( wars.ini,$nick,reg2 ) = $null) { notice $nick Please choose `listmoves then `basicmove | halt }  
  if ($readini( wars.ini,$nick,dead ) = yes) {
    notice $nick 12You need To Go to The PokeCenter `dbzcenter not in yet
    halt  
  }
  if ($readini( wars.ini,$nick,trng ) = yes) {  halt  }
  else {
    msg # 12 $nick  Now Engaged   $$readini (wars.ini,$nick,) in Battle
    writeini wars.ini $nick trng  yes 
    /mode $chan +v $nick
  }
}

on *:TEXT:`listmoves*:#:{
  notice $nick Please type `basicmove <choice>  
  notice $nick kamahamaha
  notice $nick galicgun
  notice $nick spirtbomb
  notice $nick supersayian
}
on *:TEXT:`Basicmove*:#:{
  if ($readini( wars.ini,$nick,reg2 ) = $null) {
    if ($2 == kamahamaha { writeini wars.ini $nick bmove EnergyBlast | notice $nick Please You Have Created An Account. Your Move is $2 | writeini wars.ini $nick reg2 yes }
    if ($2 == EnergyBeam) { writeini wars.ini $nick bmove EnergyBeam | notice $nick Please You Have Created An Account. Your Move is $2 | writeini wars.ini $nick reg2 yes }
    if ($2 == Firetornado) { writeini wars.ini $nick bmove Firetornado | notice $nick Please You Have Created An Account. Your Move is $2 | writeini wars.ini $nick reg2 yes }
    if ($2 == QuickAttack) { writeini wars.ini $nick bmove quickattack  | notice $nick Please You Have Created An Account. Your Move is $2 | writeini wars.ini $nick reg2 yes }  
  else {$nick You Have a Basic Move }
}
on *:TEXT:`dbzmoney*:#: {
  notice $nick Money : $readini(wars.ini,$nick,money)
